perm filename EDIT.LAP[BNF,JRA] blob
sn#028952 filedate 1973-03-14 generic text, type T, neo UTF8
(LAP SUBFUN1<ST> SUBR)
(CALL 0 (E <F11>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 73))
(CALL 1 (E CHX))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E STK))
(JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP <ST> SUBR)
(MOVEI 2 (QUOTE SUBFUN1<ST>))
(MOVEI 1 (QUOTE ST))
(JCALL 2 (E NLRR))
NIL
(LAP SUBFUN1<F11> SUBR)
(MOVEI 1 (QUOTE DSK))
(CALL 1 (E SPWDX))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 72))
(CALL 1 (E CHX))
(JUMPE 1 TAG2)
(CALL 0 (E <FILE>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(MOVEI 2 (QUOTE DSK))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (CALL 0 (E <F2>))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(JRST 0 TAG1)
TAG4 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP <F11> SUBR)
(MOVEI 2 (QUOTE SUBFUN1<F11>))
(MOVEI 1 (QUOTE F11))
(JCALL 2 (E NLRR))
NIL
(LAP SUBFUN1<F2> SUBR)
(CALL 0 (E <F3>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP SUBFUN2<F2> SUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE 37))
(CALL 1 (E CHX))
(JUMPE 1 TAG2)
(CALL 0 (E <F3>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(CALL 1 (E NCONS))
(MOVE 2 0 P)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE OR))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL *NIL*))
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP <F2> SUBR)
(MOVEI 3 (QUOTE SUBFUN2<F2>))
(MOVEI 2 (QUOTE SUBFUN1<F2>))
(MOVEI 1 (QUOTE F2))
(JCALL 3 (E LRR))
NIL
(LAP SUBFUN1<F3> SUBR)
(CALL 0 (E <F4>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP SUBFUN2<F3> SUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE 4))
(CALL 1 (E CHX))
(JUMPE 1 TAG2)
(CALL 0 (E <F4>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(CALL 1 (E NCONS))
(MOVE 2 0 P)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE AND))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL *NIL*))
TAG1 (SUB P (C 0 0 1 1))
(POPJ P)
NIL
(LAP <F3> SUBR)
(MOVEI 3 (QUOTE SUBFUN2<F3>))
(MOVEI 2 (QUOTE SUBFUN1<F3>))
(MOVEI 1 (QUOTE F3))
(JCALL 3 (E LRR))
NIL
(LAP SUBFUN1<F4> SUBR)
(MOVEI 1 (QUOTE 50))
(CALL 1 (E CHX))
(JUMPE 1 TAG2)
(CALL 0 (E <F11>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 51))
(CALL 1 (E CHX))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E STK))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE 5))
(CALL 1 (E CHX))
(JUMPE 1 TAG4)
(CALL 0 (E <F4>))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE NOT))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG4 (CALL 0 (E <PREDIC>))
(JUMPE 1 TAG6)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(JRST 0 TAG1)
TAG6 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP <F4> SUBR)
(MOVEI 2 (QUOTE SUBFUN1<F4>))
(MOVEI 1 (QUOTE F4))
(JCALL 2 (E NLRR))
NIL
(LAP SUBFUN1<PREDIC> SUBR)
(MOVEI 1 (QUOTE ANCESTRY))
(CALL 1 (E SPWDX))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE ANCESTRY))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE NONE))
(CALL 1 (E SPWDX))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE NONE))
(JRST 0 TAG1)
TAG4 (MOVEI 1 (QUOTE VINE))
(CALL 1 (E SPWDX))
(JUMPE 1 TAG6)
(MOVEI 1 (QUOTE VINE))
(JRST 0 TAG1)
TAG6 (MOVEI 1 (QUOTE UNIT))
(CALL 1 (E SPWDX))
(JUMPE 1 TAG10)
(MOVEI 1 (QUOTE UNIT))
(JRST 0 TAG1)
TAG10 (MOVEI 1 (QUOTE P1))
(CALL 1 (E SPWDX))
(JUMPE 1 TAG12)
(MOVEI 1 (QUOTE ALLPOS))
(JRST 0 TAG1)
TAG12 (MOVEI 1 (QUOTE P2))
(CALL 1 (E SPWDX))
(JUMPE 1 TAG14)
(MOVEI 1 (QUOTE ALLNEG))
(JRST 0 TAG1)
TAG14 (MOVEI 1 (QUOTE SUPPORT))
(CALL 1 (E SPWDX))
(JUMPE 1 TAG16)
(MOVEI 1 (QUOTE 133))
(CALL 1 (E CHX))
(JUMPE 1 TAG16)
(CALL 0 (E <C>))
(JUMPE 1 TAG16)
(MOVEI 1 (QUOTE 135))
(CALL 1 (E CHX))
(JUMPE 1 TAG16)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E STK))
(MOVEI 2 (QUOTE SUPPORT))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG16 (MOVEI 1 (QUOTE DEPTH))
(CALL 1 (E SPWDX))
(JUMPE 1 TAG20)
(MOVEI 1 (QUOTE 133))
(CALL 1 (E CHX))
(JUMPE 1 TAG20)
(CALL 0 (E <NUMBER>))
(JUMPE 1 TAG20)
(MOVEI 1 (QUOTE 135))
(CALL 1 (E CHX))
(JUMPE 1 TAG20)
(MOVEI 1 (QUOTE C))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE CDR))
(CALL 2 (E XCONS))
(PUSH P 1)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E STK))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE MAXDEPTH))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG20 (MOVEI 1 (QUOTE SELDEPTH))
(CALL 1 (E SPWDX))
(JUMPE 1 TAG22)
(MOVEI 1 (QUOTE 133))
(CALL 1 (E CHX))
(JUMPE 1 TAG22)
(CALL 0 (E <FNLSTP>))
(JUMPE 1 TAG22)
(MOVEI 1 (QUOTE 135))
(CALL 1 (E CHX))
(JUMPE 1 TAG22)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E STK))
(MOVEI 2 (QUOTE DEP))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG22 (MOVEI 1 (QUOTE LENGTH))
(CALL 1 (E SPWDX))
(JUMPE 1 TAG24)
(MOVEI 1 (QUOTE 133))
(CALL 1 (E CHX))
(JUMPE 1 TAG24)
(CALL 0 (E <NUMBER>))
(JUMPE 1 TAG24)
(MOVEI 1 (QUOTE 135))
(CALL 1 (E CHX))
(JUMPE 1 TAG24)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E STK))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE C))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE MAXLENGTH))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG24 (MOVEI 1 (QUOTE MODEL))
(CALL 1 (E SPWDX))
(JUMPE 1 TAG26)
(MOVEI 1 (QUOTE 133))
(CALL 1 (E CHX))
(JUMPE 1 TAG26)
(CALL 0 (E <PREDLST>))
(JUMPE 1 TAG26)
(MOVEI 1 (QUOTE 73))
(CALL 1 (E CHX))
(JUMPE 1 TAG26)
(CALL 0 (E <PREDLST1>))
(JUMPE 1 TAG26)
(MOVEI 1 (QUOTE 135))
(CALL 1 (E CHX))
(JUMPE 1 TAG26)
(MOVEI 1 (QUOTE 3))
(CALL 1 (E STK))
(PUSH P 1)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E STK))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE MODEL))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG26 (MOVEI 1 (QUOTE EQUALITY))
(CALL 1 (E SPWDX))
(JUMPE 1 TAG30)
(MOVEI 1 (QUOTE 133))
(CALL 1 (E CHX))
(JUMPE 1 TAG30)
(CALL 0 (E <OP>))
(JUMPE 1 TAG30)
(MOVEI 1 (QUOTE 54))
(CALL 1 (E CHX))
(JUMPE 1 TAG30)
(CALL 0 (E <NUMBER>))
(JUMPE 1 TAG30)
(MOVEI 1 (QUOTE 135))
(CALL 1 (E CHX))
(JUMPE 1 TAG30)
(MOVEI 1 (QUOTE 3))
(CALL 1 (E STK))
(PUSH P 1)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E STK))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE EQUALITY))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG30 (MOVEI 1 (QUOTE DEMOD))
(CALL 1 (E SPWDX))
(JUMPE 1 TAG32)
(MOVEI 1 (QUOTE 133))
(CALL 1 (E CHX))
(JUMPE 1 TAG32)
(CALL 0 (E <CLAUSES>))
(JUMPE 1 TAG32)
(CALL 0 (E <NUMBER>))
(JUMPE 1 TAG32)
(MOVEI 1 (QUOTE 135))
(CALL 1 (E CHX))
(JUMPE 1 TAG32)
(MOVEI 1 (QUOTE 2))
(CALL 1 (E STK))
(PUSH P 1)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E STK))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE DEMOD))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG32 (MOVEI 1 (QUOTE DEFMODEL))
(CALL 1 (E SPWDX))
(JUMPE 1 TAG34)
(MOVEI 1 (QUOTE 133))
(CALL 1 (E CHX))
(JUMPE 1 TAG34)
(MOVEI 1 (QUOTE ID))
(CALL 1 (E SPWDX))
(JUMPE 1 TAG34)
(MOVEI 1 (QUOTE 135))
(CALL 1 (E CHX))
(JUMPE 1 TAG34)
(MOVEI 2 (QUOTE ID))
(MOVEI 1 (QUOTE DEFMODEL))
(CALL 2 (E CONS))
(JRST 0 TAG1)
TAG34 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP <PREDIC> SUBR)
(MOVEI 2 (QUOTE SUBFUN1<PREDIC>))
(MOVEI 1 (QUOTE PREDIC))
(JCALL 2 (E NLRR))
NIL
(LAP SUBFUN1<PREDLST1> SUBR)
(CALL 0 (E <PREDLST>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP <PREDLST1> SUBR)
(MOVEI 2 (QUOTE SUBFUN1<PREDLST1>))
(MOVEI 1 (QUOTE PREDLST1))
(JCALL 2 (E NLRR))
NIL
(LAP SUBFUN1<PREDLST> SUBR)
(CALL 0 (E <ID>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 54))
(CALL 1 (E CHX))
(JUMPE 1 TAG2)
(CALL 0 (E <PREDLST>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 2))
(CALL 1 (E STK))
(PUSH P 1)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (CALL 0 (E <ID>))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(JRST 0 TAG1)
TAG4 (MOVEI 1 (QUOTE NIL))
(JRST 0 TAG1)
TAG6 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP <PREDLST> SUBR)
(MOVEI 2 (QUOTE SUBFUN1<PREDLST>))
(MOVEI 1 (QUOTE PREDLST))
(JCALL 2 (E NLRR))
NIL
(LAP SUBFUN1<FNLSTP> SUBR)
(CALL 0 (E <FP>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 73))
(CALL 1 (E CHX))
(JUMPE 1 TAG2)
(CALL 0 (E <FNLSTP>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 2))
(CALL 1 (E STK))
(PUSH P 1)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (CALL 0 (E <FP>))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(CALL 1 (E NCONS))
(JRST 0 TAG1)
TAG4 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP <FNLSTP> SUBR)
(MOVEI 2 (QUOTE SUBFUN1<FNLSTP>))
(MOVEI 1 (QUOTE FNLSTP))
(JCALL 2 (E NLRR))
NIL
(LAP SUBFUN1<FP> SUBR)
(CALL 0 (E <OP>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 54))
(CALL 1 (E CHX))
(JUMPE 1 TAG2)
(CALL 0 (E <NUMBER>))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 2))
(CALL 1 (E STK))
(PUSH P 1)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E STK))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL *NIL*))
TAG1 (POPJ P)
NIL
(LAP <FP> SUBR)
(MOVEI 2 (QUOTE SUBFUN1<FP>))
(MOVEI 1 (QUOTE FP))
(JCALL 2 (E NLRR))
NIL
(LAP SUBFUN1>ST< SUBR)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E >F11<))
(JUMPE 1 TAG2)
(CALL 0 (E STK1))
(PUSH P 1)
(MOVEI 1 (QUOTE (:CH ;)))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
TAG2 (POPJ P)
NIL
(LAP >ST< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>ST<))
(JCALL 2 (E OUTRUL))
NIL
(LAP SUBFUN1>F11< SUBR)
(MOVEI 1 (QUOTE (DSK . *)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >FILE<))
(JUMPE 1 TAG2)
(CALL 0 (E STK0))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE (:CH :)))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE DSK))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE 1))
(CALL 1 (E >F2<))
(JUMPE 1 TAG4)
(CALL 0 (E STK1))
TAG4
TAG1 (POPJ P)
NIL
(LAP >F11< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>F11<))
(JCALL 2 (E OUTRUL))
NIL
(LAP SUBFUN1>F2< SUBR)
(MOVEI 1 (QUOTE (OR * *)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E >F2<))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >F3<))
(JUMPE 1 TAG2)
(CALL 0 (E STK1))
(PUSH P 1)
(CALL 0 (E STK0))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE (:CH ∨)))
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE 1))
(CALL 1 (E >F3<))
(JUMPE 1 TAG4)
(CALL 0 (E STK1))
TAG4
TAG1 (POPJ P)
NIL
(LAP >F2< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>F2<))
(JCALL 2 (E OUTRUL))
NIL
(LAP SUBFUN1>F3< SUBR)
(MOVEI 1 (QUOTE (AND * *)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E >F3<))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >F4<))
(JUMPE 1 TAG2)
(CALL 0 (E STK1))
(PUSH P 1)
(CALL 0 (E STK0))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE (:CH ∧)))
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE 1))
(CALL 1 (E >F4<))
(JUMPE 1 TAG4)
(CALL 0 (E STK1))
TAG4
TAG1 (POPJ P)
NIL
(LAP >F3< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>F3<))
(JCALL 2 (E OUTRUL))
NIL
(LAP SUBFUN1>F4< SUBR)
(MOVEI 1 (QUOTE (NOT *)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >F4<))
(JUMPE 1 TAG2)
(CALL 0 (E STK0))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE (:CH ¬)))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE 1))
(CALL 1 (E >PREDIC<))
(JUMPE 1 TAG4)
(CALL 0 (E STK1))
(JRST 0 TAG1)
TAG4 (MOVEI 1 (QUOTE 1))
(CALL 1 (E >F11<))
(JUMPE 1 TAG5)
(CALL 0 (E STK1))
(PUSH P 1)
(MOVEI 1 (QUOTE (:CH /))))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE (:CH /()))
(CALL 2 (E XCONS))
TAG5
TAG1 (POPJ P)
NIL
(LAP >F4< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>F4<))
(JCALL 2 (E OUTRUL))
NIL
(LAP SUBFUN1>PREDIC< SUBR)
(CALL 0 (E STK1))
(CAIE 1 (QUOTE ANCESTRY))
(JRST 0 TAG2)
(MOVEI 1 (QUOTE ANCESTRY))
(JRST 0 TAG1)
TAG2 (CALL 0 (E STK1))
(CAIE 1 (QUOTE NONE))
(JRST 0 TAG3)
(MOVEI 1 (QUOTE NONE))
(JRST 0 TAG1)
TAG3 (CALL 0 (E STK1))
(CAIE 1 (QUOTE VINE))
(JRST 0 TAG4)
(MOVEI 1 (QUOTE VINE))
(JRST 0 TAG1)
TAG4 (CALL 0 (E STK1))
(CAIE 1 (QUOTE UNIT))
(JRST 0 TAG5)
(MOVEI 1 (QUOTE UNIT))
(JRST 0 TAG1)
TAG5 (CALL 0 (E STK1))
(CAIE 1 (QUOTE ALLPOS))
(JRST 0 TAG6)
(MOVEI 1 (QUOTE P1))
(JRST 0 TAG1)
TAG6 (CALL 0 (E STK1))
(CAIE 1 (QUOTE ALLNEG))
(JRST 0 TAG7)
(MOVEI 1 (QUOTE P2))
(JRST 0 TAG1)
TAG7 (MOVEI 1 (QUOTE (SUPPORT . *)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG10)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >C<))
(JUMPE 1 TAG10)
(CALL 0 (E STK0))
(PUSH P 1)
(MOVEI 1 (QUOTE (:CH /])))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE (:CH /[)))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE SUPPORT))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG10 (MOVEI 1 (QUOTE (MAXDEPTH (CDR C) *)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG12)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >NUMBER<))
(JUMPE 1 TAG12)
(CALL 0 (E STK0))
(PUSH P 1)
(MOVEI 1 (QUOTE (:CH /])))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE (:CH /[)))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE DEPTH))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG12 (MOVEI 1 (QUOTE (DEP . *)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG14)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >FNLSTP<))
(JUMPE 1 TAG14)
(CALL 0 (E STK0))
(PUSH P 1)
(MOVEI 1 (QUOTE (:CH /])))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE (:CH /[)))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE SELDEPTH))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG14 (MOVEI 1 (QUOTE (MAXLENGTH C *)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG16)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >NUMBER<))
(JUMPE 1 TAG16)
(CALL 0 (E STK0))
(PUSH P 1)
(MOVEI 1 (QUOTE (:CH /])))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE (:CH /[)))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE LENGTH))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG16 (MOVEI 1 (QUOTE (MODEL * *)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG20)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E >PREDLST<))
(JUMPE 1 TAG20)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >PREDLST1<))
(JUMPE 1 TAG20)
(CALL 0 (E STK1))
(PUSH P 1)
(CALL 0 (E STK0))
(PUSH P 1)
(MOVEI 1 (QUOTE (:CH /])))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE (:CH ;)))
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE (:CH /[)))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE MODEL))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG20 (MOVEI 1 (QUOTE (EQUALITY * *)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG22)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E >OP<))
(JUMPE 1 TAG22)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >NUMBER<))
(JUMPE 1 TAG22)
(CALL 0 (E STK1))
(PUSH P 1)
(CALL 0 (E STK0))
(PUSH P 1)
(MOVEI 1 (QUOTE (:CH /])))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE (:CH /,)))
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE (:CH /[)))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE EQUALITY))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG22 (MOVEI 1 (QUOTE (DEMOD * *)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG24)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E >CLAUSES<))
(JUMPE 1 TAG24)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >NUMBER<))
(JUMPE 1 TAG24)
(CALL 0 (E STK1))
(PUSH P 1)
(CALL 0 (E STK0))
(PUSH P 1)
(MOVEI 1 (QUOTE (:CH /])))
(CALL 1 (E NCONS))
(POP P 2)
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE (:CH /[)))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE DEMOD))
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG24 (MOVEI 1 (QUOTE (DEFMODEL . ID)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG26)
(MOVEI 1 (QUOTE (:CH /])))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE ID))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE (:CH /[)))
(CALL 2 (E XCONS))
(MOVEI 2 (QUOTE DEFMODEL))
(CALL 2 (E XCONS))
TAG26
TAG1 (POPJ P)
NIL
(LAP >PREDIC< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>PREDIC<))
(JCALL 2 (E OUTRUL))
NIL
(LAP SUBFUN1>PREDLST1< SUBR)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E >PREDLST<))
(JUMPE 1 TAG2)
(CALL 0 (E STK1))
TAG2 (POPJ P)
NIL
(LAP >PREDLST1< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>PREDLST1<))
(JCALL 2 (E OUTRUL))
NIL
(LAP SUBFUN1>PREDLST< SUBR)
(CALL 0 (E STK1))
(CAIE 1 (QUOTE NIL))
(JRST 0 TAG2)
(MOVE 1 (SPECIAL FOOBAZ))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE (* . *)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG3)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E >ID<))
(JUMPE 1 TAG3)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >PREDLST<))
(JUMPE 1 TAG3)
(CALL 0 (E STK1))
(PUSH P 1)
(CALL 0 (E STK0))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE (:CH /,)))
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE 1))
(CALL 1 (E >ID<))
(JUMPE 1 TAG5)
(CALL 0 (E STK1))
TAG5
TAG1 (POPJ P)
NIL
(LAP >PREDLST< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>PREDLST<))
(JCALL 2 (E OUTRUL))
NIL
(LAP SUBFUN1>FNLSTP< SUBR)
(MOVEI 1 (QUOTE (*)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >FP<))
(JUMPE 1 TAG2)
(CALL 0 (E STK0))
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE (* . *)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E >FP<))
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >FNLSTP<))
(JUMPE 1 TAG4)
(CALL 0 (E STK1))
(PUSH P 1)
(CALL 0 (E STK0))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE (:CH ;)))
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
TAG4
TAG1 (POPJ P)
NIL
(LAP >FNLSTP< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>FNLSTP<))
(JCALL 2 (E OUTRUL))
NIL
(LAP SUBFUN1>FP< SUBR)
(MOVEI 1 (QUOTE (* . *)))
(CALL 1 (E MATCH))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 1))
(CALL 1 (E >OP<))
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E >NUMBER<))
(JUMPE 1 TAG2)
(CALL 0 (E STK1))
(PUSH P 1)
(CALL 0 (E STK0))
(CALL 1 (E NCONS))
(MOVEI 2 (QUOTE (:CH /,)))
(CALL 2 (E XCONS))
(POP P 2)
(CALL 2 (E XCONS))
TAG2 (POPJ P)
NIL
(LAP >FP< SUBR)
(MOVEI 2 (QUOTE SUBFUN1>FP<))
(JCALL 2 (E OUTRUL))
NIL